inherited frmCad_Entidade: TfrmCad_Entidade
  Left = 256
  Top = 175
  AutoSize = True
  Caption = 'Entidade'
  ClientHeight = 475
  ClientWidth = 641
  OldCreateOrder = True
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 641
    Height = 38
    object Label1: TLabel
      Left = 16
      Top = 9
      Width = 39
      Height = 14
      Caption = 'C'#243'digo'
    end
    object btnC_Entidade: TSpeedButton
      Left = 112
      Top = 8
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnC_EntidadeClick
    end
    object Label35: TLabel
      Left = 144
      Top = 13
      Width = 24
      Height = 14
      Caption = 'aaaa'
    end
    object edtent_codigo: TEdit
      Left = 64
      Top = 8
      Width = 45
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 5
      TabOrder = 0
      OnEnter = edtent_codigoEnter
      OnExit = edtent_codigoExit
      OnKeyDown = edtent_codigoKeyDown
      OnKeyPress = edtent_codigoKeyPress
    end
  end
  inherited Panel2: TPanel
    Top = 38
    Width = 641
    Height = 370
    Align = alTop
    object PageControl1: TBmsXPPageControl
      Left = 3
      Top = 3
      Width = 635
      Height = 364
      ActivePage = TabSheet5
      Align = alClient
      HotTrack = True
      MultiLine = True
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Dados Cadastrais'
        OnMouseUp = TabSheet1MouseUp
        object Label2: TLabel
          Left = 5
          Top = 59
          Width = 102
          Height = 14
          Caption = 'Nome/Raz'#227'o Social'
          Transparent = True
        end
        object Label3: TLabel
          Left = 27
          Top = 83
          Width = 80
          Height = 14
          Caption = 'Nome Fantasia'
          Transparent = True
        end
        object Label9: TLabel
          Left = 75
          Top = 107
          Width = 32
          Height = 14
          Caption = 'E-Mail'
          Transparent = True
        end
        object Label10: TLabel
          Left = 45
          Top = 131
          Width = 62
          Height = 14
          Caption = 'Home Page'
          Transparent = True
        end
        object Label11: TLabel
          Left = 72
          Top = 230
          Width = 35
          Height = 14
          Caption = 'Status'
          Transparent = True
        end
        object Label13: TLabel
          Left = 17
          Top = 35
          Width = 90
          Height = 14
          Caption = 'Tipo da Entidade'
          Transparent = True
        end
        object Label6: TLabel
          Left = 14
          Top = 154
          Width = 93
          Height = 14
          Caption = 'Data do Cadastro'
          Transparent = True
        end
        object Label7: TLabel
          Left = 6
          Top = 178
          Width = 101
          Height = 14
          Caption = 'Data da Inatividade'
          Transparent = True
        end
        object Label8: TLabel
          Left = 11
          Top = 202
          Width = 96
          Height = 14
          Caption = 'Limite de Cr'#233'dito'
          Transparent = True
        end
        object Label37: TLabel
          Left = 254
          Top = 155
          Width = 110
          Height = 14
          Alignment = taRightJustify
          Caption = 'Data Nasc./Funda'#231#227'o'
          Transparent = True
        end
        object edtent_Bloqueado: TRadioGroup
          Left = 482
          Top = 230
          Width = 137
          Height = 32
          Caption = 'Bloqueado'
          Color = clWhite
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'N'#227'o'
            'Sim')
          ParentColor = False
          TabOrder = 10
          OnExit = edtent_BloqueadoExit
        end
        object edtent_tipoent: TComboBox
          Left = 110
          Top = 33
          Width = 105
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Style = csDropDownList
          ItemHeight = 14
          TabOrder = 0
          OnExit = edtent_tipoentExit
          Items.Strings = (
            '0 - Cliente'
            '1 - Fornecedor'
            '2 - Ambos')
        end
        object edtent_nome: TEdit
          Left = 110
          Top = 57
          Width = 507
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 80
          TabOrder = 1
          OnChange = edtent_nomeChange
          OnKeyDown = edtent_nomeKeyDown
        end
        object edtent_fantasia: TEdit
          Left = 110
          Top = 81
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 2
          OnChange = edtent_fantasiaChange
          OnKeyDown = edtent_fantasiaKeyDown
        end
        object edtent_email: TEdit
          Left = 110
          Top = 105
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecLowerCase
          MaxLength = 50
          TabOrder = 3
        end
        object edtent_homepage: TEdit
          Left = 110
          Top = 129
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 40
          TabOrder = 4
        end
        object edtent_status: TEdit
          Left = 110
          Top = 229
          Width = 43
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 5
          TabOrder = 9
        end
        object edtent_datacad: TDateEdit
          Left = 110
          Top = 153
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 5
        end
        object edtent_dataina: TDateEdit
          Left = 110
          Top = 177
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 7
        end
        object edtent_limite: TCurrencyEdit
          Left = 110
          Top = 201
          Width = 103
          Height = 21
          AutoSize = False
          TabOrder = 8
          OnExit = edtent_limiteExit
        end
        object ed_nasc: TDateEdit
          Left = 369
          Top = 153
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 6
        end
        object dbRazao: TDBGrid
          Left = 110
          Top = 81
          Width = 509
          Height = 120
          BorderStyle = bsNone
          DataSource = DtSource
          Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 11
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          Visible = False
          OnExit = dbRazaoExit
          OnKeyDown = dbRazaoKeyDown
          Columns = <
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'ENT_CODIGO'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENT_CNPJ'
              Title.Caption = 'CNPJ'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME'
              Title.Caption = 'Raz'#227'o Social'
              Width = 270
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FANTASIA'
              Title.Caption = 'Nome Fantasia'
              Visible = True
            end>
        end
        object dbFantasia: TDBGrid
          Left = 110
          Top = 105
          Width = 511
          Height = 120
          BorderStyle = bsNone
          DataSource = DtSource
          Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 12
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          Visible = False
          OnExit = dbFantasiaExit
          OnKeyDown = dbFantasiaKeyDown
          Columns = <
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'ENT_CODIGO'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENT_CNPJ'
              Title.Caption = 'CNPJ'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME'
              Title.Caption = 'Raz'#227'o Social'
              Width = 270
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FANTASIA'
              Title.Caption = 'Nome Fantasia'
              Visible = True
            end>
        end
        object rgCodigo: TGroupBox
          Left = 209
          Top = 56
          Width = 209
          Height = 105
          Caption = 'C'#243'digo da Entidade: '
          TabOrder = 13
          Visible = False
          object Label52: TLabel
            Left = 56
            Top = 25
            Width = 39
            Height = 14
            Caption = 'C'#243'digo'
          end
          object edEntCodigo: TEdit
            Left = 56
            Top = 40
            Width = 97
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            MaxLength = 5
            TabOrder = 0
            OnEnter = edEntCodigoEnter
            OnKeyDown = edEntCodigoKeyDown
          end
          object BitBtn1: TBitBtn
            Left = 64
            Top = 72
            Width = 75
            Height = 25
            Caption = 'OK'
            TabOrder = 1
            OnClick = BitBtn1Click
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Dados Cadastrais I'
        ImageIndex = 1
        OnEnter = TabSheet2Enter
        object Label4: TLabel
          Left = 48
          Top = 22
          Width = 28
          Height = 14
          Caption = 'CNPJ'
          Transparent = True
        end
        object Label12: TLabel
          Left = 55
          Top = 50
          Width = 21
          Height = 14
          Caption = 'CPF'
          Transparent = True
        end
        object Label5: TLabel
          Left = 26
          Top = 73
          Width = 50
          Height = 28
          Caption = 'Inscri'#231#227'o'#13#10'Estadual'
          Transparent = True
        end
        object lblCodContab: TLabel
          Left = 3
          Top = 169
          Width = 73
          Height = 28
          Alignment = taRightJustify
          Caption = 'C'#243'd. Contabil'#13#10'Cliente'
          Transparent = True
        end
        object Label36: TLabel
          Left = 55
          Top = 146
          Width = 21
          Height = 14
          Caption = 'R.G.'
          Transparent = True
        end
        object lblCTB: TLabel
          Left = 3
          Top = 198
          Width = 73
          Height = 28
          Alignment = taRightJustify
          Caption = 'C'#243'd. Contabil'#13#10'Fornec.'
          Transparent = True
          Visible = False
        end
        object Label59: TLabel
          Left = 211
          Top = 198
          Width = 92
          Height = 28
          Alignment = taRightJustify
          Caption = 'Inscri. Estadual'#13#10'Subst. Tribut'#225'rio'
          Transparent = True
        end
        object Label61: TLabel
          Left = 26
          Top = 105
          Width = 50
          Height = 28
          Alignment = taRightJustify
          Caption = 'Inscri'#231#227'o'#13#10'INSS'
          Transparent = True
        end
        object edtent_inscest: TEdit
          Left = 81
          Top = 76
          Width = 177
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 21
          TabOrder = 2
        end
        object edtEnt_tipo: TRadioGroup
          Left = 110
          Top = 256
          Width = 142
          Height = 66
          Caption = 'Caracteristica'
          Color = clWhite
          ItemIndex = 0
          Items.Strings = (
            '0 - Varejista'
            '1 - Grande Magazine')
          ParentColor = False
          TabOrder = 13
        end
        object edtEnt_Contabil: TEdit
          Left = 81
          Top = 172
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 10
          TabOrder = 5
        end
        object edtent_cnpj: TMaskEdit
          Left = 81
          Top = 20
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '99.999.999/9999-99;0; '
          MaxLength = 18
          TabOrder = 0
          OnExit = MaskEdit1Exit
        end
        object edtent_cpf: TMaskEdit
          Left = 81
          Top = 48
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '999.999.999-99;0; '
          MaxLength = 14
          TabOrder = 1
          OnEnter = edtent_cpfEnter
          OnExit = edtent_cpfExit
        end
        object edthomologado: TRadioGroup
          Left = 2
          Top = 256
          Width = 108
          Height = 66
          Caption = 'Homologado'
          Color = clWhite
          Items.Strings = (
            'Sim'
            'N'#227'o'
            'Em Processo')
          ParentColor = False
          TabOrder = 12
        end
        object ed_rg: TEdit
          Left = 81
          Top = 144
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 11
          TabOrder = 4
          OnKeyPress = ed_rgKeyPress
        end
        object edtCTB: TEdit
          Left = 81
          Top = 201
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 10
          TabOrder = 6
          Visible = False
        end
        object ckGerRem: TCheckBox
          Left = 2
          Top = 232
          Width = 102
          Height = 21
          Caption = 'Gera Remessa'
          Checked = True
          Color = clWhite
          ParentColor = False
          State = cbChecked
          TabOrder = 10
        end
        object rgTemIpi: TRadioGroup
          Left = 398
          Top = 256
          Width = 90
          Height = 66
          Caption = 'Tem IPI'
          Color = clWhite
          ItemIndex = 1
          Items.Strings = (
            '0 - N'#227'o'
            '1 - Sim')
          ParentColor = False
          TabOrder = 15
        end
        object rgTemICMS: TRadioGroup
          Left = 488
          Top = 256
          Width = 133
          Height = 66
          Caption = 'Contribuinte de ICMS'
          Color = clWhite
          ItemIndex = 1
          Items.Strings = (
            '0 - N'#227'o'
            '1 - Sim')
          ParentColor = False
          TabOrder = 16
          OnExit = rgTemICMSExit
        end
        object btnDesc: TdxButton
          Left = 480
          Top = 190
          Width = 137
          Height = 57
          About = 'Design eXperience. '#169' 2002 M. Hoffmann'
          Version = '1.0.2e'
          OnClick = btnDescClick
          Caption = 'Tab. de desc. especial'
          Glyph.Data = {
            360C0000424D360C000000000000360000002800000020000000200000000100
            180000000000000C0000F00A0000F00A00000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF3333339191919E9E9E9F9F9F9E9E9E9D9D9D9C9C9C9C9C9C9B9B
            9B9A9A9A9999999797979696969595959494949393939292929191919090908F
            8F8F8E8E8E727272111111FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF989898BBBBBBE0E0E0E2E2E2E0E0E0DFDFDFDEDEDEDEDEDEDBDB
            DBDADADAD9D9D9D8D8D8D8D8D8D5D5D5D4D4D4D3D3D3D2D2D2D1D1D1D1D1D1CE
            CECECDCDCDBABABA818181FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFACACACBCBCBCE8E8E8E5E5E5E3E3E3E2E2E2E1E1E1E1E1E1DEDE
            DEDDDDDDDCDCDCDBDBDBDBDBDBD8D8D8D7D7D7D6D6D6D5D5D5D5D5D5D2D2D2D1
            D1D1D1D1D1D0D0D0929292FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFA7A7A7BDBDBDE9E9E9E6E6E6E5E5E5E4E4E4E2E2E2E1E1E1E0E0
            E0DFDFDFDDDDDDDCDCDCDBDBDBDADADAD9D9D9D7D7D7D6D6D6D5D5D5D4D4D4D3
            D3D3D1D1D1D0D0D0949494FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFABABABBFBFBFECECECE7E7E7E6E6E6E5E5E5E4E4E4E3E3E3E1E1
            E1E0E0E0DFDFDFDFDFDFDFDFDFDCDCDCDBDBDBDADADAD8D8D8D7D7D7D5D5D5D4
            D4D4D3D3D3D3D3D3969696FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFAAAAAAC0C0C0ECECECE9E9E9E8E8E8E7E7E7E5E5E5E5E5E4E6E5
            E3EBE8E2EEEAE1E4E1D8CBC7BED3D0CAD1D1CEDCDCDCDADADAD8D8D8D7D7D7D6
            D6D6D6D6D6D3D3D3999999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFACACACC0C0C0EFEFEFEBEBEBE9E9E9E8E8E8EBEAE7EEEBE5D8DC
            E87696F32F64FC4C76E82860FA537ADD9FA2ABD2CFC8DADAD9DBDBDBD9D9D9D7
            D7D7D6D6D6D6D6D6999999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFAEAEAEC0C0C0EFEFEFECECECEBEBEBEFEDEAD9DCEC356AFD255F
            FE306DFD5A9DFD3072FB68A8FF296AFB2366FF6285D2C2BFBADEDEDEDADADAD9
            D9D9D9D9D9D6D6D69C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFB0B0B0C2C2C2F1F1F1EEEEEEF0EFEDECECED3569FA4184FE317B
            F6549FFF2F7AF64E95FF3783F85A97FC66A7FF1F66FCAFAEABDDDDDDDDDDDDDA
            DADAD9D9D9D9D9D99C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFB0B0B0C3C3C3F4F4F4EFEFEFFBF7EE6B93F73276FD3A85F84994
            FD418DF9428AFD4F9DFD2E74F94F98FF5CA5FF266AF3B6B2ACDEDEDEDDDDDDDC
            DCDCDCDCDCD9D9D99C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFB2B2B2C4C4C4F4F4F4F5F4F1D2DBF21F61FB4D9BFE317AF859A9
            FF3079F859A6FF327BF64B95FF5EADFF3981FA6E8DC8CCC9C6E3E3E3DFDFDFDE
            DEDEDCDCDCDCDCDC9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFBABABAC5C5C5F7F7F7FFFDF35887F6387FFD489AFA4D9BFE4A9B
            FB4793FC57A7FD337CFA57A7FF63ACFE206AF2BBB8B3E0E0DFE3E3E3E0E0E0DF
            DFDFDEDEDEDCDCDC9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFBDBDBDC6C6C6FAF9F7D6E0F51B61F84B99FF3E89FD58A9FF3F89
            FC55A5FF4897FB4C99FE5DB1FF3E8AF9678DCDD3D0CBE7E7E7E3E3E3E2E2E2E1
            E1E1E1E1E1DEDEDEA1A1A1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFBCBCBCC6C6C6FFFEF9A8C2F6266FF95CB2FF5AAFFF5CB4FF52A2
            FF5AAEFF55A7FE55A5FF61B3FF317FF696A7C2DCDAD8E8E8E8E5E5E5E4E4E4E2
            E2E2E1E1E1E1E1E1A2A2A2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFCACACAC9C9C9FFFFFFA1BDF72976F862B5FF6CBCFF5FB1FF6BBB
            FF5CB0FF6DBAFF5EB2FF62B2FE1C6FEFC3C0BDE4E3E3EBEBEBE9E9E9E8E8E8E7
            E7E7E7E7E7DDDDDDA5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFE9E9E9C1C1C1D3D0CC8BA9E02A78F862BAFF62B8FF65B5FF62B8
            FF59AEFF6EBCFF5DB3FF479CFB3A77D4B4A99CCAC4BDC7C3BFC2C1C1C0C0C0BF
            BFBFBEBEBEB2B2B28E8E8EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFD1CCC4417ADA2D7CF860BAFF5FB9FF69B9FF5EB7
            FF5EB6FF5EB5FF5EB5FF489BFB1972ED5CB4FF3F93FA537AB16563609D9D9DAC
            ACACA7A7A7858585FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1D65D7307FF65FBCFF61BBFF62BBFF5FB9
            FF5FB8FF5FB7FF5FB7FF53A7FF59AEFF6DBCFF1D75E80D2137FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF13468F2D7EF55DBAFF60BEFF60BCFF60BB
            FF5FBAFF5FB9FF5FB8FF5EB8FF62BAFF4B9FF3135DB1FFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFF030100162D4C237BFB53ABFF63C2FF61BEFF60BD
            FF60BCFF5FBBFF5EBAFF64BDFF69B9FC147CDE072744FFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFF050505030202C3C0B9528EE83B8FFF60C1FF62C1FF61BF
            FF60BFFF78C9FF9ED9FF6AB5F31581DF2A71A9FFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF0505051111111818183E3E3DD8D2CB83A5E54199FF5DBCFF62C3
            FF89D3FF77BBF31E88E20D7BD6105E99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF0303030808083737374444441717172A2A29BEBAB5C7CED968A4EF45A5
            FF48A8F2036FC0042843FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF0707073131311313132525254A4A4A2D2D2D0F0F0F747372DDD8D2CED1
            DD95C3E522292EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF0A0A0A2828283535352F2F2F4646464D4D4D4747472020202221217372
            718C8986201F1DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF0A0A0A0D0D0D3535354C4C4C4B4B4B4C4C4C4F4F4F5353534949493333
            332525251E1E1EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF0D0D0D1212123131315050504F4F4F5050505252525656565E5E
            5E2F2F2F0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFF1414141818182626264C4C4C5656565656565959594E4E
            4E232323FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1C1C1C1E1E1E3434344A4A4A5959593737
            37191919FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F1F1F1F1F2424242525252828
            28080808FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          Layout = blGlyphTop
          TabOrder = 9
        end
        object GroupBox1: TGroupBox
          Left = 272
          Top = 11
          Width = 345
          Height = 135
          Caption = 'Informa'#231#245'es p/ Suframa: '
          Color = clWhite
          ParentColor = False
          TabOrder = 7
          TabStop = True
          object Label47: TLabel
            Left = 38
            Top = 27
            Width = 39
            Height = 14
            Caption = 'C'#243'digo'
            Transparent = True
          end
          object Label49: TLabel
            Left = 15
            Top = 54
            Width = 62
            Height = 14
            Caption = 'Mensagem'
            Transparent = True
          end
          object bMsg_Sufr: TSpeedButton
            Left = 117
            Top = 52
            Width = 23
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = bMsg_SufrClick
          end
          object Label50: TLabel
            Left = 4
            Top = 82
            Width = 73
            Height = 14
            Caption = 'C'#243'digo Fiscal'
            Transparent = True
          end
          object c_codfiscal: TSpeedButton
            Left = 123
            Top = 80
            Width = 23
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = c_codfiscalClick
          end
          object Label51: TLabel
            Left = 25
            Top = 110
            Width = 52
            Height = 14
            Caption = 'Desconto'
          end
          object edtCod_Suframa: TEdit
            Left = 81
            Top = 25
            Width = 105
            Height = 22
            BevelInner = bvLowered
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 9
            TabOrder = 0
            OnKeyPress = ed_rgKeyPress
          end
          object edMsg_Suframa: TEdit
            Left = 81
            Top = 52
            Width = 33
            Height = 22
            BevelInner = bvLowered
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            MaxLength = 3
            TabOrder = 1
            OnEnter = edMsg_SuframaEnter
            OnExit = edMsg_SuframaExit
            OnKeyDown = edMsg_SuframaKeyDown
            OnKeyPress = edMsg_SuframaKeyPress
          end
          object EdtCodFiscal_Suframa: TMaskEdit
            Left = 81
            Top = 80
            Width = 38
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            EditMask = '9.999;1; '
            MaxLength = 5
            TabOrder = 2
            Text = ' .   '
            OnEnter = EdtCodFiscal_SuframaEnter
            OnExit = EdtCodFiscal_SuframaExit
            OnKeyDown = EdtCodFiscal_SuframaKeyDown
          end
          object EdtAliqDesc_Suframa: TCurrencyEdit
            Left = 81
            Top = 108
            Width = 65
            Height = 21
            AutoSize = False
            Ctl3D = False
            DecimalPlaces = 10
            DisplayFormat = '0.00, %'
            MaxLength = 5
            ParentCtl3D = False
            TabOrder = 3
          end
          object ckDesPisSuframa: TCheckBox
            Left = 176
            Top = 80
            Width = 97
            Height = 17
            Caption = 'Desconta PIS'
            TabOrder = 4
          end
          object ckDescCofinsSuframa: TCheckBox
            Left = 176
            Top = 96
            Width = 121
            Height = 17
            Caption = 'Desconta COFINS'
            TabOrder = 5
          end
          object ckDescICMSSuframa: TCheckBox
            Left = 176
            Top = 112
            Width = 121
            Height = 17
            Caption = 'Desconta ICMS'
            TabOrder = 6
          end
        end
        object rgModalidade: TRadioGroup
          Left = 252
          Top = 256
          Width = 146
          Height = 66
          Caption = 'Tipo'
          Color = clWhite
          ItemIndex = 1
          Items.Strings = (
            '0 - Consumidor Final'
            '1 - Revendedor')
          ParentColor = False
          TabOrder = 14
        end
        object ckImprEnder: TCheckBox
          Left = 122
          Top = 232
          Width = 159
          Height = 21
          Caption = 'Imprime endere'#231'o na NF'
          Checked = True
          Color = clWhite
          ParentColor = False
          State = cbChecked
          TabOrder = 11
        end
        object edtent_inscestSubst: TEdit
          Left = 307
          Top = 201
          Width = 166
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 21
          TabOrder = 8
        end
        object edtent_inscINSS: TEdit
          Left = 81
          Top = 108
          Width = 136
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 15
          TabOrder = 3
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'Endere'#231'os'
        ImageIndex = 4
        object Label23: TLabel
          Left = 20
          Top = 2
          Width = 96
          Height = 14
          Caption = 'Tipo do Endere'#231'o'
          Transparent = True
        end
        object btnC_TipoEndereco: TSpeedButton
          Left = 154
          Top = 1
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_TipoEnderecoClick
        end
        object Label24: TLabel
          Left = 8
          Top = 86
          Width = 52
          Height = 14
          Caption = 'Endere'#231'o'
          Transparent = True
        end
        object Label25: TLabel
          Left = 27
          Top = 111
          Width = 33
          Height = 14
          Caption = 'Bairro'
          Transparent = True
        end
        object Label26: TLabel
          Left = 38
          Top = 57
          Width = 22
          Height = 14
          Caption = 'Cep'
          Transparent = True
        end
        object Label27: TLabel
          Left = 33
          Top = 166
          Width = 27
          Height = 14
          Caption = 'Fone'
          Transparent = True
        end
        object Label28: TLabel
          Left = 390
          Top = 166
          Width = 18
          Height = 14
          Caption = 'Fax'
          Transparent = True
        end
        object Label29: TLabel
          Left = 22
          Top = 138
          Width = 38
          Height = 14
          Caption = 'Cidade'
          Transparent = True
        end
        object btnC_Cidade: TSpeedButton
          Left = 102
          Top = 138
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_CidadeClick
        end
        object btn_EliminaEndereco: TSpeedButton
          Left = 544
          Top = 1
          Width = 77
          Height = 22
          Caption = 'Eliminar'
          Flat = True
          OnClick = btn_EliminaEnderecoClick
        end
        object p_faxddd: TLabel
          Left = 437
          Top = 167
          Width = 3
          Height = 14
          Alignment = taRightJustify
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object p_foneddd: TLabel
          Left = 82
          Top = 165
          Width = 3
          Height = 14
          Alignment = taRightJustify
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label22: TLabel
          Left = 467
          Top = 87
          Width = 11
          Height = 14
          Caption = 'n'#186
          Transparent = True
        end
        object spCEP: TSpeedButton
          Left = 146
          Top = 56
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = spCEPClick
        end
        object Label60: TLabel
          Left = 225
          Top = 166
          Width = 21
          Height = 14
          Caption = 'Cel.'
          Transparent = True
        end
        object spCEPWeb: TSpeedButton
          Left = 170
          Top = 56
          Width = 231
          Height = 22
          Caption = '[F3] Trazer informa'#231#245'es do endere'#231'o'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
            5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
            335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
            C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
            CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
            C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
            CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
            5555555775FFFF77555555555C4CCC5555555555577777555555}
          NumGlyphs = 2
          ParentFont = False
          OnClick = spCEPWebClick
        end
        object Label62: TLabel
          Left = 324
          Top = 111
          Width = 39
          Height = 14
          Caption = 'Compl.'
          Transparent = True
        end
        object Label63: TLabel
          Left = 8
          Top = 32
          Width = 52
          Height = 14
          Caption = 'CNPJ/CPF'
          Transparent = True
        end
        object Label64: TLabel
          Left = 192
          Top = 32
          Width = 96
          Height = 14
          Caption = '(somente n'#250'meros)'
          Font.Charset = ANSI_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentFont = False
          Transparent = True
        end
        object edttipend_codigo: TEdit
          Tag = 2
          Left = 123
          Top = 1
          Width = 22
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          TabOrder = 1
          OnEnter = edttipend_codigoEnter
          OnExit = edttipend_codigoExit
          OnKeyDown = edttipend_codigoKeyDown
        end
        object Panel12: TPanel
          Left = 184
          Top = 1
          Width = 337
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 0
        end
        object edtend_endereco: TEdit
          Left = 66
          Top = 85
          Width = 398
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 46
          TabOrder = 4
        end
        object edtend_bairro: TEdit
          Left = 66
          Top = 111
          Width = 249
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 6
        end
        object edtend_fone: TEdit
          Left = 90
          Top = 164
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 13
          TabOrder = 9
          OnKeyPress = edtend_foneKeyPress
        end
        object edtend_fax: TEdit
          Left = 441
          Top = 164
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 13
          TabOrder = 11
          OnKeyDown = edtend_faxKeyDown
          OnKeyPress = edtent_codigoKeyPress
        end
        object edtcid_codigo: TEdit
          Left = 66
          Top = 138
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 4
          TabOrder = 8
          OnEnter = edtcid_codigoEnter
          OnExit = edtcid_codigoExit
          OnKeyDown = edtcid_codigoKeyDown
        end
        object Panel13: TPanel
          Left = 127
          Top = 138
          Width = 372
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 12
        end
        object DbgEndereco: TDBGrid
          Left = 0
          Top = 192
          Width = 627
          Height = 124
          Align = alBottom
          DataSource = DsEndereco
          FixedColor = 14081504
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 13
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnCellClick = DbgEnderecoCellClick
          OnDblClick = DbgEnderecoDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'tpend'
              Width = 41
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'descricao'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'endereco'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bairro'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'complemento'
              Title.Caption = 'Complemento'
              Width = 121
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cep'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cidade'
              Width = 174
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fone'
              Width = 99
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fax'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'celular'
              Title.Caption = 'Celular'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cnpj'
              Title.Caption = 'CNPJ'
              Visible = True
            end>
        end
        object edtNum: TEdit
          Left = 481
          Top = 85
          Width = 80
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 10
          TabOrder = 5
        end
        object edtend_cep: TMaskEdit
          Left = 66
          Top = 56
          Width = 77
          Height = 22
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '!99.999-999;0;_'
          MaxLength = 10
          TabOrder = 3
          OnEnter = edtend_cepEnter
          OnExit = edtend_cepExit
          OnKeyDown = edtend_cepKeyDown
        end
        object edtend_celular: TEdit
          Left = 258
          Top = 164
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 13
          TabOrder = 10
          OnKeyPress = edtent_codigoKeyPress
        end
        object edtend_complemento: TEdit
          Left = 370
          Top = 111
          Width = 249
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 7
        end
        object edtCnpjEndereco: TMaskEdit
          Left = 66
          Top = 30
          Width = 118
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '99999999999999;0;_'
          MaxLength = 14
          TabOrder = 2
          OnEnter = edtCnpjEnderecoEnter
          OnExit = edtCnpjEnderecoExit
          OnKeyPress = edtCnpjEnderecoKeyPress
        end
      end
      object TabSheet6: TTabSheet
        Caption = 'Contatos'
        ImageIndex = 5
        object Label30: TLabel
          Left = 53
          Top = 16
          Width = 32
          Height = 14
          Caption = 'Nome'
          Transparent = True
        end
        object Label31: TLabel
          Left = 7
          Top = 41
          Width = 78
          Height = 14
          Caption = 'Departamento'
          Transparent = True
        end
        object Label32: TLabel
          Left = 420
          Top = 43
          Width = 33
          Height = 14
          Caption = 'Ramal'
          Transparent = True
        end
        object Label33: TLabel
          Left = 53
          Top = 66
          Width = 32
          Height = 14
          Caption = 'E-Mail'
          Transparent = True
        end
        object Label34: TLabel
          Left = 52
          Top = 91
          Width = 33
          Height = 14
          Caption = 'Cargo'
          Transparent = True
        end
        object btn_EliminaContato: TSpeedButton
          Left = 499
          Top = 15
          Width = 75
          Height = 22
          Caption = 'Eliminar'
          Flat = True
          OnClick = btn_EliminaContatoClick
        end
        object Label38: TLabel
          Left = 322
          Top = 117
          Width = 128
          Height = 14
          Caption = 'Dia/M'#234's de Nascimento'
          Transparent = True
        end
        object Label48: TLabel
          Left = 313
          Top = 90
          Width = 27
          Height = 14
          Caption = 'Fone'
          Transparent = True
        end
        object edtCont_nome: TEdit
          Left = 94
          Top = 15
          Width = 401
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 40
          TabOrder = 0
          OnKeyDown = edtCont_nomeKeyDown
        end
        object edtCont_departamento: TEdit
          Left = 94
          Top = 40
          Width = 265
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 1
        end
        object edtCont_Ramal: TEdit
          Left = 462
          Top = 41
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 4
          TabOrder = 2
        end
        object edtCont_email: TEdit
          Left = 94
          Top = 64
          Width = 401
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecLowerCase
          MaxLength = 50
          TabOrder = 3
        end
        object edtCont_Cargo: TEdit
          Left = 94
          Top = 89
          Width = 185
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 20
          TabOrder = 4
        end
        object EdtCont_nasc: TMaskEdit
          Left = 456
          Top = 113
          Width = 39
          Height = 22
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '!99/99;0;_'
          MaxLength = 5
          TabOrder = 6
          OnKeyDown = EdtCont_nascKeyDown
        end
        object DbgContato: TDBGrid
          Left = 0
          Top = 145
          Width = 627
          Height = 171
          TabStop = False
          Align = alBottom
          DataSource = DsContato
          FixedColor = 14081504
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 7
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = DbgContatoDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'nome'
              Title.Caption = 'Nome'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'depto'
              Title.Caption = 'Departamento'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Fone'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Ramal'
              Width = 48
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'e_mail'
              Title.Caption = 'E-Mail'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Cargo'
              Width = 140
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'nasc'
              Title.Caption = 'Nasc.'
              Width = 65
              Visible = True
            end>
        end
        object edtCont_Fone: TEdit
          Left = 370
          Top = 89
          Width = 125
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 15
          TabOrder = 5
          OnKeyPress = edtent_codigoKeyPress
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Outras Informa'#231#245'es'
        ImageIndex = 2
        OnEnter = TabSheet3Enter
        object Label14: TLabel
          Left = 26
          Top = 6
          Width = 103
          Height = 14
          Caption = 'Grupo Empres'#225'rial'
          Transparent = True
        end
        object Label15: TLabel
          Left = 68
          Top = 34
          Width = 61
          Height = 14
          Caption = 'Supervisor'
          Transparent = True
        end
        object Label16: TLabel
          Left = 37
          Top = 61
          Width = 92
          Height = 14
          Caption = 'Regi'#227'o de Venda'
          Transparent = True
        end
        object Label17: TLabel
          Left = 47
          Top = 89
          Width = 82
          Height = 14
          Caption = 'Representante'
          Transparent = True
        end
        object Label18: TLabel
          Left = 44
          Top = 117
          Width = 85
          Height = 14
          Caption = 'Linha de Venda'
          Transparent = True
        end
        object Label19: TLabel
          Left = 28
          Top = 145
          Width = 101
          Height = 14
          Caption = 'Local de Cobran'#231'a'
          Transparent = True
        end
        object Label20: TLabel
          Left = 3
          Top = 172
          Width = 126
          Height = 14
          Caption = 'Sub-Local de Cobran'#231'a'
          Transparent = True
        end
        object Label21: TLabel
          Left = 27
          Top = 200
          Width = 102
          Height = 14
          Caption = 'Ramo de Atividade'
          Transparent = True
        end
        object btnC_GrupoEmpresarial: TSpeedButton
          Left = 175
          Top = 4
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_GrupoEmpresarialClick
        end
        object btnC_Supervisor: TSpeedButton
          Left = 175
          Top = 32
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_SupervisorClick
        end
        object btnC_RegiaoVenda: TSpeedButton
          Left = 175
          Top = 60
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RegiaoVendaClick
        end
        object btnC_Representante: TSpeedButton
          Left = 175
          Top = 88
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RepresentanteClick
        end
        object btnC_LinhaVenda: TSpeedButton
          Left = 175
          Top = 116
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_LinhaVendaClick
        end
        object btnC_LocalCobranca: TSpeedButton
          Left = 175
          Top = 144
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_LocalCobrancaClick
        end
        object btnC_SubLocalCobranca: TSpeedButton
          Left = 175
          Top = 172
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_SubLocalCobrancaClick
        end
        object btnC_RamoAtividade: TSpeedButton
          Left = 175
          Top = 200
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RamoAtividadeClick
        end
        object Label44: TLabel
          Left = 41
          Top = 228
          Width = 88
          Height = 14
          Caption = 'Tabela de Pre'#231'o'
          Transparent = True
        end
        object btnC_TabelaPreco: TSpeedButton
          Left = 175
          Top = 228
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_TabelaPrecoClick
        end
        object Label45: TLabel
          Left = 511
          Top = 91
          Width = 58
          Height = 14
          Caption = '% Comiss.'
          Transparent = True
        end
        object Label46: TLabel
          Left = 67
          Top = 260
          Width = 62
          Height = 14
          Caption = 'Mensagem'
          Transparent = True
        end
        object c_mensagem: TSpeedButton
          Left = 175
          Top = 258
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = c_mensagemClick
        end
        object lblOperacaoFiscal: TLabel
          Left = 43
          Top = 289
          Width = 86
          Height = 14
          Caption = 'Opera'#231#227'o Fiscal'
          Transparent = True
          Visible = False
        end
        object edtgrupo_codigo: TEdit
          Left = 135
          Top = 4
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 4
          TabOrder = 0
          OnEnter = edtgrupo_codigoEnter
          OnExit = edtgrupo_codigoExit
          OnKeyDown = edtgrupo_codigoKeyDown
        end
        object Panel3: TPanel
          Left = 207
          Top = 4
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 9
        end
        object edtsup_codigo: TEdit
          Left = 135
          Top = 32
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 1
          OnEnter = edtsup_codigoEnter
          OnExit = edtsup_codigoExit
          OnKeyDown = edtsup_codigoKeyDown
        end
        object Panel5: TPanel
          Left = 207
          Top = 32
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 10
        end
        object edtregiao_codigo: TEdit
          Left = 135
          Top = 59
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 2
          OnEnter = edtregiao_codigoEnter
          OnExit = edtregiao_codigoExit
          OnKeyDown = edtregiao_codigoKeyDown
        end
        object Panel6: TPanel
          Left = 207
          Top = 60
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 11
        end
        object edtrep_codigo: TEdit
          Left = 135
          Top = 87
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 3
          OnEnter = edtrep_codigoEnter
          OnExit = edtrep_codigoExit
          OnKeyDown = edtrep_codigoKeyDown
        end
        object Panel7: TPanel
          Left = 207
          Top = 88
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 12
        end
        object edtlinha_codigo: TEdit
          Left = 135
          Top = 115
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 5
          OnEnter = edtlinha_codigoEnter
          OnExit = edtlinha_codigoExit
          OnKeyDown = edtlinha_codigoKeyDown
        end
        object Panel8: TPanel
          Left = 207
          Top = 116
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 13
        end
        object edtlocal_codigo: TEdit
          Left = 135
          Top = 143
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 6
          OnEnter = edtlocal_codigoEnter
          OnExit = edtlocal_codigoExit
          OnKeyDown = edtlocal_codigoKeyDown
        end
        object Panel9: TPanel
          Left = 207
          Top = 144
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 14
        end
        object edtsubl_codigo: TEdit
          Left = 135
          Top = 170
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 7
          OnEnter = edtsubl_codigoEnter
          OnExit = edtsubl_codigoExit
          OnKeyDown = edtsubl_codigoKeyDown
        end
        object Panel10: TPanel
          Left = 207
          Top = 172
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 15
        end
        object edtramo_codigo: TEdit
          Left = 135
          Top = 198
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 8
          OnEnter = edtramo_codigoEnter
          OnExit = edtramo_codigoExit
          OnKeyDown = edtramo_codigoKeyDown
        end
        object Panel11: TPanel
          Left = 207
          Top = 200
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 16
        end
        object edTab_Codigo: TEdit
          Left = 135
          Top = 226
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 17
          OnEnter = edTab_CodigoEnter
          OnExit = edTab_CodigoExit
          OnKeyDown = edTab_CodigoKeyDown
        end
        object pnlTabelaPreco: TPanel
          Left = 207
          Top = 228
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 18
        end
        object edt_PercComiss: TCurrencyEdit
          Left = 571
          Top = 89
          Width = 49
          Height = 21
          AutoSize = False
          Ctl3D = False
          DisplayFormat = '0.00'
          ParentCtl3D = False
          TabOrder = 4
        end
        object ed_mensagem: TEdit
          Left = 135
          Top = 258
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 19
          OnEnter = ed_mensagemEnter
          OnExit = ed_mensagemExit
          OnKeyDown = ed_mensagemKeyDown
          OnKeyPress = ed_mensagemKeyPress
        end
        object cmbxOperacaoFiscal: TComboBox
          Left = 135
          Top = 287
          Width = 487
          Height = 22
          BevelKind = bkFlat
          Style = csDropDownList
          Ctl3D = False
          ItemHeight = 0
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 20
          Visible = False
          OnChange = cmbxOperacaoFiscalChange
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Observa'#231#227'o'
        ImageIndex = 3
        object edtent_observacao: TMemo
          Left = 0
          Top = 0
          Width = 627
          Height = 316
          Align = alClient
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 0
          OnEnter = edtent_observacaoEnter
          OnExit = edtent_observacaoExit
        end
      end
      object TabSheet7: TTabSheet
        Caption = 'Produto '
        ImageIndex = 6
        OnEnter = TabSheet7Enter
        object RxLabel1: TRxLabel
          Left = 0
          Top = 137
          Width = 193
          Height = 14
          Align = alBottom
          Caption = 'Descri'#231#227'o do produto por entidade'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object RxLabel2: TRxLabel
          Left = 3
          Top = 0
          Width = 191
          Height = 14
          Caption = 'Descri'#231#227'o de produto cadastrados'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Shape1: TShape
          Left = 392
          Top = 0
          Width = 235
          Height = 18
          Align = alRight
          Visible = False
        end
        object spBtnCadastroReferencia: TSpeedButton
          Left = 393
          Top = 1
          Width = 233
          Height = 16
          Cursor = crHandPoint
          Caption = 'Cadastrar Refer'#234'ncia de Produtos'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
          Visible = False
          OnClick = spBtnCadastroReferenciaClick
        end
        object dbgProdEntidade: TDBGrid
          Left = 0
          Top = 151
          Width = 627
          Height = 165
          Align = alBottom
          Color = clAqua
          FixedColor = 14081504
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnKeyDown = dbgProdEntidadeKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'pre_codigo_entidade'
              Title.Caption = 'C'#243'digo'
              Width = 91
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_descricao'
              Title.Caption = 'Descri'#231#227'o'
              Width = 236
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_medida'
              Title.Caption = 'Medida'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Pre_unidade'
              Title.Caption = 'Unidade'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_custo'
              Title.Caption = 'Custo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_saldo'
              Title.Caption = 'Saldo'
              Visible = True
            end>
        end
        object dbgProduto: TDBGrid
          Left = 0
          Top = 18
          Width = 627
          Height = 119
          Align = alBottom
          Color = clInfoBk
          FixedColor = 14081504
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnCellClick = dbgProdutoCellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Pro_codigo'
              Title.Caption = 'C'#243'digo'
              Width = 84
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Pro_Nome'
              Title.Caption = 'Descri'#231#227'o'
              Width = 501
              Visible = True
            end>
        end
      end
      object TabSheet8: TTabSheet
        Caption = 'P'#243's Venda'
        ImageIndex = 7
        object Label39: TLabel
          Left = 28
          Top = 17
          Width = 58
          Height = 14
          Caption = 'Nota Fiscal'
          Transparent = True
        end
        object Label40: TLabel
          Left = 63
          Top = 47
          Width = 23
          Height = 14
          Caption = 'Data'
          Transparent = True
        end
        object Label41: TLabel
          Left = 43
          Top = 77
          Width = 43
          Height = 14
          Caption = 'Contato'
          Transparent = True
        end
        object Label42: TLabel
          Left = 224
          Top = 16
          Width = 74
          Height = 14
          Caption = 'Observa'#231#227'o 1'
          Transparent = True
        end
        object Label43: TLabel
          Left = 224
          Top = 59
          Width = 74
          Height = 14
          Caption = 'Observa'#231#227'o 2'
          Transparent = True
        end
        object edNF: TEdit
          Left = 92
          Top = 13
          Width = 121
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 9
          TabOrder = 0
          OnKeyDown = edNFKeyDown
        end
        object edData: TDateEdit
          Left = 92
          Top = 44
          Width = 121
          Height = 21
          NumGlyphs = 2
          TabOrder = 1
          OnKeyDown = edDataKeyDown
        end
        object edContato: TEdit
          Left = 92
          Top = 75
          Width = 205
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 50
          TabOrder = 2
        end
        object edObs1: TMemo
          Left = 304
          Top = 13
          Width = 309
          Height = 38
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 200
          TabOrder = 3
        end
        object edObs2: TMemo
          Left = 304
          Top = 59
          Width = 309
          Height = 38
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 200
          TabOrder = 4
          OnKeyDown = edObs2KeyDown
        end
        object dbgPosVda: TDBGrid
          Left = 0
          Top = 117
          Width = 627
          Height = 199
          Hint = 'Clique 2 vezes p/ Editar ou Del p/ Excluir'
          Align = alBottom
          DataSource = dsPosVenda
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgMultiSelect]
          TabOrder = 5
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = dbgPosVdaDblClick
          OnEnter = dbgPosVdaEnter
          OnExit = dbgPosVdaExit
          OnKeyDown = dbgPosVdaKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'NF'
              Title.Caption = 'Nota Fiscal'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Data'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Atendende'
              Title.Caption = 'Contato'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Obs1'
              Title.Caption = 'Obs 1'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Obs2'
              Title.Caption = 'Obs 2'
              Visible = True
            end>
        end
      end
      object TabSheet9: TTabSheet
        Caption = 'SERASA'
        ImageIndex = 8
        object Label53: TLabel
          Left = 357
          Top = 5
          Width = 29
          Height = 14
          Caption = 'Qtde:'
        end
        object Label54: TLabel
          Left = 5
          Top = 5
          Width = 54
          Height = 14
          Caption = 'Anota'#231#227'o:'
        end
        object Label55: TLabel
          Left = 5
          Top = 53
          Width = 46
          Height = 14
          Caption = 'Per'#237'odo:'
        end
        object Label56: TLabel
          Left = 281
          Top = 53
          Width = 139
          Height = 14
          Caption = 'Ocorr'#234'ncia mais recente:'
        end
        object Label57: TLabel
          Left = 5
          Top = 101
          Width = 32
          Height = 14
          Caption = 'Local:'
        end
        object Label58: TLabel
          Left = 134
          Top = 69
          Width = 6
          Height = 14
          Caption = 'a'
          Transparent = True
        end
        object dbgSerasa: TDBGrid
          Left = 0
          Top = 146
          Width = 627
          Height = 170
          Hint = 'Pressione [DEL] p/ excluir o lan'#231'amento'
          TabStop = False
          Align = alBottom
          DataSource = dsSerasa
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = dbgSerasaDblClick
          OnKeyDown = dbgSerasaKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'SER_QTDE'
              Title.Alignment = taRightJustify
              Title.Caption = 'Qtde'
              Width = 34
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SER_ANOTACAO'
              Title.Caption = 'Anota'#231#227'o'
              Width = 221
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'SER_DATAINI'
              Title.Alignment = taCenter
              Title.Caption = 'Data Ini'
              Width = 63
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'SER_DATAFIM'
              Title.Alignment = taCenter
              Title.Caption = 'Data Fim'
              Width = 63
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SER_OCORRENCIA'
              Title.Caption = 'Ocorr'#234'ncia mais recente'
              Width = 162
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SER_LOCAL'
              Title.Caption = 'Local'
              Width = 162
              Visible = True
            end>
        end
        object edAnotacao: TComboBox
          Left = 5
          Top = 21
          Width = 337
          Height = 22
          BevelKind = bkFlat
          Style = csDropDownList
          ItemHeight = 14
          TabOrder = 1
          Items.Strings = (
            'FALENCIA/RECUP/CONCORDATA'
            'PARTICIPACAO EM FALENCIA'
            'CHEQUE SEM FUNDOS'
            'PENDENCIA:REFIN'
            'PENDENCIA:PEFIN'
            'ACAO JUDICIAL'
            'PROTESTO'
            'DIVIDA VENCIDA')
        end
        object edQtde: TCurrencyEdit
          Left = 357
          Top = 21
          Width = 65
          Height = 21
          AutoSize = False
          Ctl3D = False
          DecimalPlaces = 0
          DisplayFormat = '0'
          MaxValue = 99999.000000000000000000
          ParentCtl3D = False
          TabOrder = 2
        end
        object edDataIni: TDateEdit
          Left = 5
          Top = 69
          Width = 121
          Height = 21
          Ctl3D = False
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 3
          OnKeyDown = edDataIniKeyDown
        end
        object edDataFim: TDateEdit
          Left = 147
          Top = 69
          Width = 121
          Height = 21
          Ctl3D = False
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 4
          OnKeyDown = edDataFimKeyDown
        end
        object edOcorrencia: TEdit
          Left = 281
          Top = 69
          Width = 341
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          TabOrder = 5
        end
        object edLocal: TEdit
          Left = 5
          Top = 117
          Width = 341
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          TabOrder = 6
          OnKeyDown = edLocalKeyDown
        end
      end
    end
  end
  inherited Panel4: TPanel
    Top = 408
    Width = 641
    Align = alTop
    inherited btnCancelar1: TBitBtn
      Left = 275
      Top = 12
    end
    inherited btnFechar1: TBitBtn
      Left = 524
      Top = 12
    end
    inherited BtnEliminar1: TBitBtn
      Left = 146
      Top = 12
    end
    inherited btnlistagem1: TBitBtn
      Left = 411
      Top = 12
    end
    inherited btnGravar: TFlatButton
      Left = 8
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = 136
      OnClick = BtnEliminarClick
    end
    inherited btnCancelar: TFlatButton
      Left = 264
    end
    inherited btnlistagem: TFlatButton
      Left = 392
      OnClick = btnlistagemClick
    end
    inherited btnFechar: TFlatButton
      Left = 520
    end
  end
  inherited BS: TStatusBar
    Top = 456
    Width = 641
    Align = alTop
    Panels = <
      item
        Width = 410
      end
      item
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 65
      end
      item
        Alignment = taCenter
        Width = 65
      end>
  end
  inherited Timer1: TTimer
    Left = 639
    Top = 2
  end
  inherited RDP: TRDprint
    Left = 604
    Top = 4
  end
  object CdsContatos: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 479
    Top = 2
    object CdsContatosnome: TStringField
      FieldName = 'nome'
      Size = 40
    end
    object CdsContatosdepto: TStringField
      FieldName = 'depto'
      Size = 25
    end
    object CdsContatosFone: TStringField
      FieldName = 'Fone'
      Size = 15
    end
    object CdsContatosRamal: TStringField
      FieldName = 'Ramal'
      Size = 4
    end
    object CdsContatose_mail: TStringField
      DisplayWidth = 50
      FieldName = 'e_mail'
      Size = 50
    end
    object CdsContatosCargo: TStringField
      FieldName = 'Cargo'
    end
    object CdsContatosnasc: TStringField
      FieldName = 'nasc'
      Size = 4
    end
  end
  object DsContato: TDataSource
    AutoEdit = False
    DataSet = CdsContatos
    Left = 511
    Top = 2
  end
  object DsEndereco: TDataSource
    AutoEdit = False
    DataSet = CdsEndereco
    Left = 352
  end
  object CdsEndereco: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 384
    object CdsEnderecotpend: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'tpend'
      Size = 2
    end
    object CdsEnderecodescricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'descricao'
      Size = 40
    end
    object CdsEnderecoendereco: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'endereco'
      Size = 46
    end
    object CdsEnderecobairro: TStringField
      DisplayLabel = 'Bairro'
      FieldName = 'bairro'
      Size = 25
    end
    object CdsEnderecocep: TStringField
      DisplayLabel = 'CEP'
      FieldName = 'cep'
      Size = 9
    end
    object CdsEnderecocid_codigo: TStringField
      FieldName = 'cid_codigo'
      Size = 4
    end
    object CdsEnderecocidade: TStringField
      DisplayLabel = 'Cidade'
      FieldName = 'cidade'
      Size = 25
    end
    object CdsEnderecofone: TStringField
      DisplayLabel = 'Fone'
      FieldName = 'fone'
      Size = 19
    end
    object CdsEnderecofax: TStringField
      DisplayLabel = 'Fax'
      FieldName = 'fax'
      Size = 19
    end
    object CdsEnderecoNumero: TStringField
      FieldName = 'Numero'
      Size = 10
    end
    object CdsEnderecocelular: TStringField
      FieldName = 'celular'
      Size = 13
    end
    object CdsEnderecocomplemento: TStringField
      FieldName = 'complemento'
      Size = 60
    end
    object CdsEnderecocnpj: TStringField
      DisplayWidth = 20
      FieldName = 'cnpj'
    end
  end
  object DtSource: TDataSource
    DataSet = tq
    Left = 223
    Top = 6
  end
  object tq: TQuery
    DatabaseName = 'industrial'
    SQL.Strings = (
      'Select Ent_Codigo, Ent_CNPJ, substr(Ent_Nome,1,40)  Nome,'
      'substr(Ent_Fantasia,1,40)  Fantasia'
      'from entidade')
    Left = 255
    Top = 6
    object tqENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Size = 5
    end
    object tqENT_CNPJ: TStringField
      FieldName = 'ENT_CNPJ'
      Size = 18
    end
    object tqNOME: TStringField
      FieldName = 'NOME'
      Size = 40
    end
    object tqFANTASIA: TStringField
      FieldName = 'FANTASIA'
      Size = 25
    end
  end
  object CDSDelete: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 187
    Top = 7
    object CDSDeleteEntidade: TStringField
      FieldName = 'Entidade'
    end
    object CDSDeleteTipoEnd: TStringField
      FieldName = 'TipoEnd'
    end
    object CDSDeleteEnd_Codigo: TStringField
      FieldName = 'End_Codigo'
    end
  end
  object CDSPosVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 231
    Top = 42
    object CDSPosVendaData: TDateField
      FieldName = 'Data'
    end
    object CDSPosVendaNF: TStringField
      FieldName = 'NF'
      Size = 9
    end
    object CDSPosVendaAtendende: TStringField
      DisplayWidth = 50
      FieldName = 'Atendende'
      Size = 50
    end
    object CDSPosVendaObs1: TStringField
      DisplayWidth = 150
      FieldName = 'Obs1'
      Size = 200
    end
    object CDSPosVendaObs2: TStringField
      FieldName = 'Obs2'
      Size = 200
    end
    object CDSPosVendaEntidade: TStringField
      FieldName = 'Entidade'
      Size = 5
    end
    object CDSPosVendaCod: TStringField
      FieldName = 'Cod'
      Size = 3
    end
  end
  object dsPosVenda: TDataSource
    DataSet = CDSPosVenda
    Left = 259
    Top = 42
  end
  object CDSSerasa: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 495
    Top = 293
    object CDSSerasaSER_CODIGO: TStringField
      FieldName = 'SER_CODIGO'
      Size = 2
    end
    object CDSSerasaSER_QTDE: TIntegerField
      FieldName = 'SER_QTDE'
    end
    object CDSSerasaSER_ANOTACAO: TStringField
      FieldName = 'SER_ANOTACAO'
      Size = 100
    end
    object CDSSerasaSER_DATAINI: TDateField
      FieldName = 'SER_DATAINI'
    end
    object CDSSerasaSER_DATAFIM: TDateField
      FieldName = 'SER_DATAFIM'
    end
    object CDSSerasaSER_OCORRENCIA: TStringField
      FieldName = 'SER_OCORRENCIA'
      Size = 200
    end
    object CDSSerasaSER_LOCAL: TStringField
      FieldName = 'SER_LOCAL'
      Size = 200
    end
  end
  object dsSerasa: TDataSource
    DataSet = CDSSerasa
    Left = 527
    Top = 293
  end
  object XMLDocument1: TXMLDocument
    Left = 287
    Top = 173
    DOMVendorDesc = 'MSXML'
  end
end
